(isearch-text-char-description): Propertize escape

character sequences with the `escape-glyph' face.  (Bug#4344)

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 30873e8ceebcb879db670062b517b64fc9eaa3a4..752746f09c287a04b9f152ad2ad3c434d67c0951 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2496,8 +2496,8 @@ since they have special meaning in a regexp."
 
 (defun isearch-text-char-description (c)
   (cond
-   ((< c ?\s) (format "^%c" (+ c 64)))
-   ((= c ?\^?) "^?")
+   ((< c ?\s) (propertize (format "^%c" (+ c 64)) 'face 'escape-glyph))
+   ((= c ?\^?) (propertize "^?" 'face 'escape-glyph))
    (t (char-to-string c))))
 
 ;; General function to unread characters or events.